   2 .
   3 .
   4 :return 
   5 .ATTACK
   6 .BY CARL MORIMOTO
 100 clear ;NT=0;BC=250;FC=7
 110 P=20;Q=10;CX=P-21;CY=Q
 120 Z=950
 130 gosub 1250
 140 NT=4;print " ATTACK";NT=0
 150 CX=-60;CY=-32;input "# WALLS (1-20)"U
 160 U=U+6;if U>26U=26
 165 goto 200
 170 A=rnd (100)
 180 if TR(1)=0goto 170
 200 @(1)=rnd (100)
 205 for A=2to U
 210 L=rnd (100)
 215 N=A-1
 220 for B=1to N;NT=2;MU=L+B;NT=0
 230 if L=@(B)goto 210
 240 next B
 250 @(A)=L;next A
 255 P=rnd (60)-30;Q=-10
 260 clear ;BC=7;FC=250;gosub 1250;P=P-28;Q=Q-23
 270 for A=7to U
 280 gosub 1105;gosub 1120
 290 next A
 300 for A=2to 6
 310 gosub 1105;gosub 1135
 320 next A
 350 X=@(1);Y=(X-1)div 10;X=X-Ymul 10
 360 gosub 1150
 400 CX=-60;CY=36;print "YOUR MOVE
 410 if TR(1)#0goto 515
 420 K=JX(1);J=JY(1)
 430 if K=0if J=0goto 410
 500 gosub 1100;box H,I,5,5,1
 510 X=X+K;Y=Y+J
 515 gosub 1150
 520 if X<1goto Z
 530 if X>10goto Z
 540 if Y<0goto Z
 550 if Y>9goto Z
 560 C=Ymul 10+X
 570 for A=2to U
 580 if C=@(1)goto Z
 590 next A
 600 for A=2to 6
 610 L=@(A);if L<1goto 770
 620 T=(L-1)div 10;S=L-Tmul 10;V=X-S;W=Y-T
 622 for B=2to 6
 624 if A=Bgoto 628
 626 if L=@(B)goto 650
 628 next B
 630 gosub 1110;box H,I,5,5,1
 650 if V=0goto 680
 660 if V<0S=S-1
 670 if V>0S=S+1
 680 if W=0goto 710
 690 if W<0T=T-1
 700 if W>0T=T+1
 710 gosub 1130
 720 D=Tmul 10+S;@(A)=D;if D=Cgoto 980
 730 for B=7to U
 740 if D#@(B)goto 760
 750 @(A)=-1;gosub 1190;goto 770
 760 next B
 770 next A
 780 for A=2to 5;L=@(A);if L<1goto 820
 790 for B=A+1to 6;if L=@(B)@(A)=-1
 810 next B
 820 next A
 830 for A=2to 6
 840 if @(A)>0goto 400
 850 next A
 900 for A=1to 7;gosub 1150;next A
 910 FC=7;BC=250
 920 print " ALL ATTACKERS DESTROYED
 930 goto 170
 950 FC=118;BC=1
 960 print "YOU ZAPPED YOURSELF
 970 goto 1000
 980 FC=82
 990 print "YOU ARE ZAPPED
1000 NT=2;for A=1to 15;X=FC;FC=BC;BC=X
1010 MU=44;MU=44
1020 next A;NT=0;goto 170
1100 H=P+Xmul 5;I=Q+Ymul 5;return 
1105 S=@(A);T=(S-1)div 10;S=S-Tmul 10
1110 H=P+Smul 5;I=Q+Tmul 5;return 
1120 box H,I,5,5,2;NT=2;MU=H;MU=I;NT=0;return 
1130 gosub 1110
1135 box H,I,5,1,2;box H,I,1,5,2;box H,I,3,3,2
1140 NT=2;MU=53;MU=49;NT=0;return 
1150 gosub 1100;CX=-60;CY=36;print "          "
1160 box H,I,3,3,2;box H,I,1,1,1
1170 NT=2;for E=1to 5;MU=80;next E
1180 NT=0;return 
1190 box H,I,5,5,1;box H,I,3,3,3;box H,I,5,5,2;box H,I,3,3,3
1200 box H,I,1,1,3;box H,I,3,3,2;box H,I,1,1,3
1210 NT=2;for E=1to 6;MU=42;next E
1220 NT=0;box H,I,5,5,2;return 
1250 box P,Q,62,62,3;box P,Q,60,60,3;box P,Q,50,50,3;return 
:return ;run 
